home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / commodore-scene-files / Misc / DT053A.D64 / laeufer v9 _kht (.txt) < prev    next >
Commodore BASIC  |  2019-04-13  |  2KB  |  46 lines
  1. 1 Q=PEEK(186):POKE820,Q:QA=PEEK(821):ONQAGOTO8:REM---LAEUFER09---
  2. 2 B=53280:PRINT"[147]":POKEB,0:POKEB+1,11:GOSUB130:GOSUB100
  3. 3 POKE821,1:LOAD"MSLAEUFER08*",Q,1
  4. 8 POKE45,0:POKE46,48:CLR:GOTO120
  5. 61 CY=INT(C/100):CX=C-(CY*100)
  6. 62 POKE211,CX:POKE214,CY:SYS58640:RETURN
  7. 68 LC=INT(L/100):LL=L-(LC*100)
  8. 69 FORX=LCTOLL:POKE781,X:SYS59903:NEXT:RETURN
  9. 100 PRINTTAB(15)""T0$
  10. 102 PRINTTAB(7)"[152]NACH EINER ERSTEN IDEE VON":PRINTTAB(14)"[155]BRUNO  JONNE"
  11. 104 PRINTTAB(12)"[152]PROGRAMMIERT VON":PRINTTAB(16)"[153]KA HA TE":FORI=0TO2000:NEXT
  12. 110 PRINTTAB(10)"[152]DATEN WERDEN GELADEN":PRINTTAB(14)"[144]BITTE WARTEN[155]":RETURN
  13. 120 L=724:GOSUB68:GOSUB130:C=1406:GOSUB61
  14. 121 PRINT"[152]FUER ERKLAERUNG <E[152]> DRUECKEN":PRINTTAB(18)"ODER"
  15. 122 PRINTTAB(10)"[144]WEITER MIT  <RETURN>[155]"
  16. 123 R$="":GETR$:ON-(R$<>CHR$(13)ANDR$<>CHR$(69))GOTO123
  17. 124 ON-(R$=CHR$(13))-2*(R$="E")GOTO126,200:GOTO123
  18. 126 PRINT"[147]":POKE7685,50:GOTO150
  19. 130 T0$="[153]LAEUFER 09":T1$="[155]VON KAHATE":RETURN
  20. 140 PRINTT0$;:PRINTSPC(70)T1$:RETURN
  21. 150 L=724:GOSUB68:Z=RND(-TI):Z1=INT(RND(1)*5)
  22. 160 Z2=INT(RND(1)*30):IFZ2<1THEN160
  23. 162 Z3=INT(RND(1)*5)
  24. 164 Z4=INT(RND(1)*230):IFZ4<50THEN164
  25. 170 Z5=INT(RND(1)*16):ON-(Z5=2)-2*(Z5=4)-3*(Z5=6)GOTO170,170,170
  26. 172 ON-(Z5=8)-2*(Z5=9)-3*(Z5=11)GOTO170,170,170
  27. 180 POKE822,Z1:POKE823,Z2:POKE824,Z3:POKE825,Z4:POKE7689,Z5
  28. 190 L=6:GOSUB68:C=Z1*100+Z2:GOSUB61:GOSUB140:GOTO240
  29. 200 PRINT"[147][155]ERLAEUTERUNG:":PRINT"TEXT UND LAEUFER FINDEN SICH"
  30. 202 PRINT"AEHNLICH EINEM BILDSCHIRMSCHONER":PRINT"AN IMMER ANDEREN BILD";
  31. 204 PRINT"SCHIRMSTELLEN.":PRINT"ERSCHEINUNGSORTE UND LAEUFERFARBEN"
  32. 206 PRINT"WERDEN DURCH ZUFALLSZAHLEN BESTIMMT.":PRINT"DER LAEUFER STAR";
  33. 208 PRINT"TET AUTOMATISCH":PRINT"ALLE 8 BIS 10 SEKUNDEN    ODER"
  34. 210 PRINT"NACH JEDEM <RETURN>    ODER AUCH":PRINT"DAUERND NACH TASTE  <D>"
  35. 212 PRINT"EFFEKT  NACH TASTE  <E>":PRINT"PROGRAMMENDE MIT TASTE  <_>"
  36. 219 GOTO122
  37. 240 ON-(R1$="E")GOTO260:SYS7680:GOTO300
  38. 260 SYS10752:R1$=""
  39. 300 I=0
  40. 302 R$="":GETR$:IFR$=CHR$(13)THENR1$="":GOTO150
  41. 304 ON-(R$=CHR$(95))GOTO999
  42. 306 IFR$=CHR$(68)THENR1$="D"
  43. 308 IFR$=CHR$(69)THENR1$="E":GOTO150
  44. 310 ON-(R1$="D")GOTO150:I=I+1:ON-(I>=200)GOTO150:GOTO302
  45. 999 POKE198,0:POKE53269,0:PRINT"[147]":END
  46.